home *** CD-ROM | disk | FTP | other *** search
/ 360 Degrees of: Yellowstone National Park / 360 Degrees of: Yellowstone National Park.iso / pc / data / exhibit.cst / 00062_check clicks scripts.ls < prev    next >
Encoding:
Text File  |  2008-04-21  |  1.7 KB  |  64 lines
  1. on checkclickspanos
  2.   --for use with the panoramas
  3.   
  4.   --this script checks selected sprite channels below to see if they are 
  5.   --being clicked on using the polhemus wand
  6.   --check channels 42-65
  7.   
  8.   global clicktestcursor
  9.   global pclick
  10.   
  11.   i = 110
  12.   repeat while i < 144
  13.     
  14.     --if the clicktestcursor is in the sprite, then changepano
  15.     if sprite(clicktestcursor).within(i) then
  16.       
  17.       if pclick = "1" then
  18.         global showpanos
  19.         global showqtvr
  20.         global showglossary
  21.         global panoqtvr
  22.         global panoimage
  23.         global panotext
  24.         global panotitle
  25.         global mapbutton_on
  26.         global showmapbutton_on
  27.         global fov_indicator
  28.         global showtitle
  29.         global arrow
  30.         global showparkinfo
  31.         
  32.         --This shows the mapbutton and changes its location to the location of the button clicked
  33.         set the locH of sprite mapbutton_on = the locH of sprite (i)-6
  34.         set the locV of sprite mapbutton_on = the locV of sprite (i)-6
  35.         set the locH of sprite arrow = the locH of sprite (i)-5
  36.         set the locV of sprite arrow = the locV of sprite (i)-5
  37.         
  38.         --Hide the mapbutton
  39.         set showmapbutton_on = 0
  40.         set the visible of sprite mapbutton_on = 0
  41.         set the visible of sprite arrow = 0
  42.         
  43.         --Fades out the sound
  44.         if the volume of sound 1 > 0 then
  45.           sound fadeOut 1, 2 * 6
  46.         end if
  47.         
  48.         --Hide the parkinfo
  49.         set showparkinfo = 0
  50.         
  51.         global panonumber
  52.         set panonumber = the memberNum of sprite (i)
  53.         changepano
  54.         
  55.         
  56.       end if
  57.       
  58.     end if
  59.     i = i+1
  60.   end repeat
  61.   
  62.   
  63. end
  64.